home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / oobr / br-site.el < prev    next >
Encoding:
Text File  |  1995-08-26  |  2.6 KB  |  83 lines
  1. ;;!emacs
  2. ;;
  3. ;; FILE:         br-site.el
  4. ;; SUMMARY:      Site OO-Browser per Emacs session initialization.
  5. ;; USAGE:        GNU Emacs Lisp Library
  6. ;; KEYWORDS:     local, oop, tools
  7. ;;
  8. ;; AUTHOR:       Bob Weiner
  9. ;; ORG:          Motorola Inc.
  10. ;;
  11. ;; ORIG-DATE:    18-May-90
  12. ;; LAST-MOD:     28-Jul-95 at 15:11:17 by Bob Weiner
  13. ;;
  14. ;; Copyright (C) 1990-1995  Free Software Foundation, Inc.
  15. ;; See the file BR-COPY for license information.
  16. ;;
  17. ;; This file is part of the OO-Browser.
  18. ;;
  19. ;; DESCRIPTION:  
  20. ;; DESCRIP-END.
  21.  
  22. ;;; ************************************************************************
  23. ;;; Public variables
  24. ;;; ************************************************************************
  25.  
  26. (defvar hpath:display-alist
  27.   '(
  28.     ;; Run the OO-Browser on OOBR or OOBR-FTR Environment files.
  29.     ("OOBR\\(-FTR\\)?$" . br-env-browse)
  30.    )
  31.   "*Alist of (FILENAME-REGEXP . EDIT-FUNCTION) elements for calling special
  32. functions to display particular file types within Emacs.  See also
  33. 'hpath:find-alist' for external display program settings.")
  34.  
  35. (defvar hpath:find-alist nil
  36.   "*Alist of (FILENAME-REGEXP . EDIT-PROGRAM) elements for using window system
  37. dependent external programs to edit/display particular file types.  See also
  38. 'hpath:display-alist' for internal, window-system independent display
  39. settings.")
  40.  
  41. (defvar smart-scroll-proportional nil
  42.   "*Non-nil means Smart Keys should scroll relative to current line when pressed at the end of a line.
  43. Action Key moves current line to top of window.  Assist Key moves current
  44. line to bottom of window.  Repeated presses then scroll up or down a
  45. windowful.  Nil value instead ignores current line and always scrolls up or
  46. down a windowful.")
  47.  
  48. ;;; ************************************************************************
  49. ;;; Public functions
  50. ;;; ************************************************************************
  51.  
  52. (defun br-setup-external ()
  53.   "Site customizable function to configure the OO-Browser for non-Emacs editing and viewing.
  54. This must be run after \"br-init\" has been loaded."
  55.   (setq br-editor-cmd "xterm"
  56.     br-ed1 "-e" br-ed2 "vi"
  57.     br-viewer-cmd "xterm"
  58.     br-vw1 "-e" br-vw2 "more"))
  59.  
  60. (defun br-site-after-term-init ()
  61.   (interactive)
  62.   (if noninteractive
  63.       (br-init-autoloads)
  64.     (br-after-term-init))
  65.   ;;
  66.   ;;     DON'T PUT IN br-init.el
  67.   ;;
  68.   (require 'br)
  69.   (if noninteractive
  70.       nil
  71.     (setq c++-cpp-include-dirs '("/usr/include/")
  72.       c++-include-dirs 
  73.       (delq nil (mapcar 
  74.              (function (lambda (dir) (if (file-exists-p dir) dir)))
  75.              '("/usr/include/X11/" "/usr/openwin/include/X11/"))))))
  76.  
  77. ;; Execute
  78. (br-site-after-term-init)
  79.  
  80. (if hyperb:window-system (require 'br-tree))
  81.  
  82. (provide 'br-site)
  83.